inherited FContasPagar: TFContasPagar
  Left = 235
  Top = 84
  Caption = 'Contas Pagar'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited pcCadastro: TPageControl
    inherited TsPesquisa: TTabSheet
      inherited dbgPesquisaPadra: TDBGrid
        Columns = <
          item
            Expanded = False
            FieldName = 'CP_CODIGO'
            Title.Alignment = taCenter
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_DATATITULO'
            Title.Alignment = taCenter
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_DOCUMENTO'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_DATADOCUMENTO'
            Title.Alignment = taCenter
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_DATAVENCIMENTO'
            Title.Alignment = taCenter
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_FORNECEDOR_DESC'
            Width = 200
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_VALOR'
            Title.Alignment = taRightJustify
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_SALDO'
            Title.Alignment = taRightJustify
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_HISTORICO1'
            Width = 250
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CP_HISTORICO2'
            Width = 250
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'CP_PAGFOR_SELECIONADO'
            Visible = True
          end>
      end
      inherited pnPesquisaPadrao: TPanel
        object GroupBox2: TGroupBox
          Left = 691
          Top = 9
          Width = 147
          Height = 43
          Ctl3D = False
          ParentCtl3D = False
          TabOrder = 3
          object CheckBox1: TCheckBox
            Tag = 1
            Left = 1
            Top = 8
            Width = 145
            Height = 17
            Caption = 'Em Aberto'
            Color = clYellow
            Ctl3D = False
            ParentColor = False
            ParentCtl3D = False
            TabOrder = 0
            OnClick = CheckBox1Click
          end
          object CheckBox2: TCheckBox
            Tag = 1
            Left = 1
            Top = 25
            Width = 145
            Height = 17
            Caption = 'Pagos'
            Color = clLime
            Ctl3D = False
            ParentColor = False
            ParentCtl3D = False
            TabOrder = 1
            OnClick = CheckBox1Click
          end
        end
      end
    end
    inherited TsCadastro: TTabSheet
      inherited panel1: TPanel
        inherited panel2: TPanel
          inherited SBAtualiza: TSpeedButton
            Height = 26
          end
          inherited BtnFechar: TBitBtn
            Left = 603
          end
          inherited DBNavigator1: TDBNavigator
            Left = 704
            Height = 26
            Hints.Strings = ()
          end
          inherited streg: TStaticText
            Left = 555
          end
        end
        inherited panel3: TPanel
          Top = 408
          Height = 72
          inherited LUsuario: TLabel
            Top = 34
          end
          inherited LDataMod: TLabel
            Top = 52
          end
          inherited LNRegistros: TLabel
            Left = 140
            Top = 34
          end
          inherited BtnConsuta: TBitBtn
            Top = 5
            Height = 26
            TabOrder = 6
            OnClick = BtnConsutaClick
          end
          inherited BtnCancelar: TBitBtn
            TabOrder = 7
          end
          inherited stSituacaoReg2: TStaticText
            TabOrder = 8
          end
          object BtnDuplicar: TBitBtn
            Left = 105
            Top = 33
            Width = 120
            Height = 25
            Caption = '&Duplicar Titulo'
            TabOrder = 1
            OnClick = BtnDuplicarClick
            Glyph.Data = {
              16050000424D160500000000000036040000280000000E0000000E0000000100
              080000000000E000000000000000000000000001000000000000000000000000
              BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0CA
              A600000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
              0303030303030303000003030303030303030303030303030000030303030303
              0303030303030303000003030303030000000303030303030000030303030300
              FF000303030303030000030303030300FF000303030303030000030300000000
              FF000000000303030000030300FFFFFFFFFFFFFF000303030000030300000000
              FF000000000303030000030303030300FF000303030303030000030303030300
              FF00030303030303000003030303030000000303030303030000030303030303
              0303030303030303000003030303030303030303030303030000}
          end
          object BitTrocarEmpresa: TBitBtn
            Left = 227
            Top = 5
            Width = 120
            Height = 25
            Caption = 'Trocar Empresa'
            TabOrder = 2
            OnClick = BitTrocarEmpresaClick
            Kind = bkRetry
          end
          object btnConsultaBaixas: TBitBtn
            Left = 105
            Top = 5
            Width = 120
            Height = 25
            Caption = 'Consulta Baixas'
            TabOrder = 3
            OnClick = btnConsultaBaixasClick
            Glyph.Data = {
              42010000424D4201000000000000760000002800000011000000110000000100
              040000000000CC00000000000000000000001000000000000000000000000000
              8000008000000080800080000000800080008080000080808000C0C0C0000000
              FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888888888
              88888000000080000000008888888000000080FFFFFFF08888800000000080F8
              8888F08888000000000080F88888F08880008000000080F88870007800088000
              000080F8800FFF0000888000000080F807FFFF0708888000000080F70E000F08
              07888000000080F0EFEFEF0880888000000080F0F0000F088088800000008000
              EFEFFF0880888000000088870000000807888000000088880088888708888000
              0000888880088800888880000000888888700078888880000000888888888888
              888880000000}
          end
          object btnBaixas: TBitBtn
            Left = 4
            Top = 33
            Width = 100
            Height = 25
            Caption = 'Baixas'
            TabOrder = 4
            OnClick = btnBaixasClick
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
              0000000063000000630000006300000063000000630000006300000063000000
              6300000063000000630000006300FF00FF00FF00FF00FF00FF00639C00003163
              000000009C000031CE000031CE000031CE0000009C00639C000000009C000031
              CE000031CE000031CE00000063000000630000000000FF00FF00639C00009CCE
              000000009C000031CE000031CE0031630000639C0000639C0000639C00000000
              9C000031CE000031CE0000006300316300009CCE000000000000639C0000639C
              000000009C000031CE0000009C00639C000000009C00639C000000009C00639C
              00000031CE000031CE0000006300639C00009CCE0000FF00FF00000000009CCE
              000000009C000031CE000031CE000031CE0000009C00639C0000316300009CCE
              00000031CE000031CE0000006300639C00009CCE000000000000639C0000639C
              000000009C000031CE000031CE0031630000639C0000639C00009CCE00000031
              CE000031CE000031CE0000006300316300009CCE000000000000639C0000639C
              000000009C000031CE0000009C00639C000000009C00639C000000009C00639C
              00000031CE000031CE0000006300316300009CCE000000000000000000003163
              000000009C000031CE0000009C00639C000000009C00639C0000316300009CCE
              00000031CE000031CE000000630031630000639C0000FF00FF00639C00003163
              000000009C000031CE000031CE0000009C00639C0000639C00009CCE00000031
              CE000031CE000031CE0000006300639C00009CCE000000000000639C0000639C
              000000009C0000009C0000009C0000009C0000009C0000009C0000009C000000
              9C0000009C0000009C0000006300316300009CCE000000000000FF00FF00FF00
              FF00000063000031CE00009CFF000031CE000031CE000031CE000031CE000031
              CE000031CE0000CEFF0000009C0000009C0000006300FF00FF00FF00FF00FF00
              FF00FF00FF00000063000031CE00009CFF0000009C000031CE000031CE000031
              CE0000009C000031CE0000CEFF0000009C0000006300FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00000000000000000000009C00FF00FF00FF00FF00FF00
              FF0000009C0000000000000000000000000000000000FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF000000000000009C00000063000000
              630000000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000
              0000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
          end
          object BitBtn1: TBitBtn
            Left = 4
            Top = 5
            Width = 100
            Height = 25
            Caption = 'Cheque'
            TabOrder = 5
            OnClick = BitBtn1Click
            Glyph.Data = {
              36040000424D3604000000000000360000002800000010000000100000000100
              2000000000000004000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000DEDEDE005252
              52009C9C9C00737373009C9C9C009C9C9C009C9C9C00A5A5A500636363005252
              5200636363007373730063636300636363007373730000000000DEDEDE006363
              6300DEDEDE00F7FFFF00DEDEDE00FFFFFF005252520042424200525252006363
              6300DEDEDE00FFFFFF00F7FFFF00F7FFFF006363630000000000CECECE00A5A5
              A500DEDEDE00F7FFFF0052525200FFFFFF003131310042424200A5A5A5006363
              6300CECECE009C9C9C00CECECE00FFFFFF004242420000000000CECECE006363
              6300FFFFFF00CECECE0052525200FFFFFF00A5A5A500A5A5A500C6C6C600C6C6
              C600FFFFFF00C6C6C600CECECE00CECECE005252520000000000CECECE00CECE
              CE0073737300F7FFFF00C6C6C600A5A5A500C6C6C600A5A5A500A5A5A500CECE
              CE00FFFFFF00FFFFFF00F7FFFF0063636300DEDEDE0000000000A5A5A5005252
              5200636363009C9C9C00A5A5A500A5A5A500A5A5A500CECECE00A5A5A5009C9C
              9C00C6C6C600A5A5A5009C9C9C00525252004242420000000000000000000000
              0000000000000000000000000000000000000000000000000000000000000000
              0000000000000000000000000000000000000000000000000000FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00
              FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00}
          end
        end
        object PageControl1: TPageControl
          Left = 1
          Top = 36
          Width = 840
          Height = 372
          ActivePage = TAbertura
          Align = alClient
          TabOrder = 2
          object TAbertura: TTabSheet
            Caption = 'Abertura'
            object Label1: TLabel
              Left = 1
              Top = 0
              Width = 40
              Height = 16
              Caption = 'C'#243'digo'
            end
            object Label2: TLabel
              Left = 71
              Top = 0
              Width = 102
              Height = 16
              Caption = 'Data Lan'#231'amento'
            end
            object lbFornecedor: TLabel
              Left = 1
              Top = 118
              Width = 92
              Height = 16
              Caption = 'Fornecedor (F8)'
            end
            object Label7: TLabel
              Left = 346
              Top = 119
              Width = 49
              Height = 16
              Caption = 'Portador'
            end
            object Label8: TLabel
              Left = 1
              Top = 169
              Width = 168
              Height = 16
              Caption = 'Classifica'#231#227'o Financeira (F8)'
            end
            object Label9: TLabel
              Left = 1
              Top = 292
              Width = 90
              Height = 16
              Caption = 'Data do Vencto'
            end
            object Label10: TLabel
              Left = 133
              Top = 292
              Width = 83
              Height = 16
              Caption = 'Valor do Titulo'
            end
            object Label11: TLabel
              Left = 244
              Top = 292
              Width = 33
              Height = 16
              Caption = 'Saldo'
            end
            object Label4: TLabel
              Left = 346
              Top = 219
              Width = 78
              Height = 16
              Caption = 'Hist'#243'rico (F8)'
            end
            object Label13: TLabel
              Left = 346
              Top = 169
              Width = 121
              Height = 16
              Caption = 'Centro de Custo (F8)'
            end
            object Label15: TLabel
              Left = 346
              Top = 292
              Width = 46
              Height = 16
              Caption = 'Origem '
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -13
              Font.Name = 'Arial'
              Font.Style = []
              ParentFont = False
            end
            object Label18: TLabel
              Left = 203
              Top = 0
              Width = 103
              Height = 16
              Caption = 'Fonte de Recurso'
            end
            object lbContaContabil: TLabel
              Left = 1
              Top = 218
              Width = 89
              Height = 16
              Caption = 'Conta Contabil:'
            end
            object Label16: TLabel
              Left = 1
              Top = 261
              Width = 183
              Height = 16
              Caption = 'F8 = Todos; F7 = Relacionados'
            end
            object Label17: TLabel
              Left = 675
              Top = 16
              Width = 51
              Height = 18
              Caption = 'PagFor'
              Font.Charset = ANSI_CHARSET
              Font.Color = clRed
              Font.Height = -15
              Font.Name = 'Arial'
              Font.Style = [fsBold]
              ParentFont = False
              Visible = False
            end
            object DBText1: TDBText
              Left = 717
              Top = 39
              Width = 65
              Height = 17
              DataField = 'CP_PAGFOR_SELECIONADO'
              DataSource = dsCadastro
              Visible = False
            end
            object Label21: TLabel
              Left = 667
              Top = 39
              Width = 47
              Height = 16
              Caption = 'N'#186' Lote:'
              Visible = False
            end
            object DBDEDataTitulo: TDBDateEdit
              Left = 71
              Top = 18
              Width = 121
              Height = 22
              DataField = 'CP_DATATITULO'
              DataSource = dsCadastro
              CheckOnExit = True
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 1
              OnEnter = DBDEDataTituloEnter
            end
            object DBLCBFornecedor: TDBLookupComboBox
              Left = 1
              Top = 138
              Width = 339
              Height = 22
              Ctl3D = False
              DataField = 'CP_FORNECEDOR'
              DataSource = dsCadastro
              KeyField = 'FORN_CODIGO'
              ListField = 'FORN_RAZAO'
              ListSource = DSFornecedor
              ParentCtl3D = False
              TabOrder = 5
              OnExit = DBLCBFornecedorExit
              OnKeyDown = DBLCBFornecedorKeyDown
            end
            object DBLCBPortador: TDBLookupComboBox
              Left = 346
              Top = 138
              Width = 366
              Height = 22
              Ctl3D = False
              DataField = 'CP_PORTADOR'
              DataSource = dsCadastro
              KeyField = 'PORT_CODIGO'
              ListField = 'PORT_DESCRICAO'
              ListSource = DSPortador
              ParentCtl3D = False
              TabOrder = 6
              OnEnter = DBLCBPortadorEnter
              OnKeyDown = DBLCBFornecedorKeyDown
            end
            object DBLCBPlano: TDBLookupComboBox
              Left = 1
              Top = 187
              Width = 339
              Height = 22
              Ctl3D = False
              DataField = 'CP_PLANO'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSPlanoSaida
              ParentCtl3D = False
              TabOrder = 7
              OnExit = DBLCBPlanoExit
              OnKeyDown = DBLCBPlanoKeyDown
            end
            object DBDEDataVencimento: TDBDateEdit
              Left = 1
              Top = 310
              Width = 121
              Height = 24
              DataField = 'CP_DATAVENCIMENTO'
              DataSource = dsCadastro
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 12
            end
            object DBEHistorico: TDBEdit
              Left = 346
              Top = 236
              Width = 366
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CP_HISTORICO1'
              DataSource = dsCadastro
              MaxLength = 60
              ParentCtl3D = False
              TabOrder = 10
              OnKeyDown = DBEHistoricoKeyDown
            end
            object DBLCBCentroCusto: TDBLookupComboBox
              Left = 346
              Top = 187
              Width = 366
              Height = 22
              Ctl3D = False
              DataField = 'CP_CENTROCUSTO'
              DataSource = dsCadastro
              KeyField = 'CODIGO'
              ListField = 'DESCRICAO'
              ListSource = DSCentro
              ParentCtl3D = False
              TabOrder = 8
              OnEnter = DBLCBCentroCustoEnter
              OnKeyDown = DBLCBCentroCustoKeyDown
            end
            object DBEHistorico2: TDBEdit
              Left = 346
              Top = 258
              Width = 366
              Height = 22
              CharCase = ecUpperCase
              Ctl3D = False
              DataField = 'CP_HISTORICO2'
              DataSource = dsCadastro
              MaxLength = 60
              ParentCtl3D = False
              TabOrder = 11
              OnEnter = DBEHistorico2Enter
            end
            object DBLCBContaContabil: TDBLookupComboBox
              Left = 1
              Top = 236
              Width = 339
              Height = 22
              Hint = '(F7 - Todo , F8 -Relacionados)'
              Ctl3D = False
              DataField = 'CP_CONTACONTABIL'
              DataSource = dsCadastro
              KeyField = 'PLANOCONT_CODIGO'
              ListField = 'PLANOCONT_DESCRICAO'
              ListSource = DSPlanoContabil
              ParentCtl3D = False
              ParentShowHint = False
              ShowHint = True
              TabOrder = 9
              OnExit = DBLCBContaContabilExit
              OnKeyDown = DBLCBContaContabilKeyDown
            end
            object DBEValor: TRxDBCalcEdit
              Left = 132
              Top = 310
              Width = 102
              Height = 24
              DataField = 'CP_VALOR'
              DataSource = dsCadastro
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '0.,00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 13
              OnExit = DBEValorExit
            end
            object DBLFonteRecurso: TDBLookupComboBox
              Left = 203
              Top = 18
              Width = 355
              Height = 22
              Ctl3D = False
              DataField = 'CP_FONTERECURSO'
              DataSource = dsCadastro
              KeyField = 'FONT_CODIGO'
              ListField = 'FONT_DESCRICAO'
              ListSource = dsFonteRecurso
              ParentCtl3D = False
              TabOrder = 2
              OnEnter = DBLCBCentroCustoEnter
              OnKeyDown = DBLCBFornecedorKeyDown
            end
            object DBESaldo: TRxDBCalcEdit
              Left = 242
              Top = 310
              Width = 100
              Height = 24
              TabStop = False
              DataField = 'CP_SALDO'
              DataSource = dsCadastro
              ReadOnly = True
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '0.,00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 14
              OnExit = DBEValorExit
            end
            object gbDocumento: TGroupBox
              Left = 1
              Top = 44
              Width = 557
              Height = 69
              Caption = ' Documento  '
              Ctl3D = False
              ParentCtl3D = False
              TabOrder = 3
              object Label5: TLabel
                Left = 14
                Top = 16
                Width = 24
                Height = 16
                Caption = 'Tipo'
              end
              object Label3: TLabel
                Left = 207
                Top = 16
                Width = 45
                Height = 16
                Caption = 'N'#250'mero'
                FocusControl = DBEDocumento
              end
              object Label12: TLabel
                Left = 311
                Top = 16
                Width = 27
                Height = 16
                Caption = 'Data'
              end
              object Label14: TLabel
                Left = 439
                Top = 16
                Width = 30
                Height = 16
                Caption = 'Valor'
              end
              object DBLCBTipoDocumento: TDBLookupComboBox
                Left = 14
                Top = 37
                Width = 184
                Height = 22
                Ctl3D = False
                DataField = 'CP_TIPODOCUMENTO'
                DataSource = dsCadastro
                KeyField = 'TIPO_DOC_CODIGO'
                ListField = 'TIPO_DOC_DESCRICAO'
                ListSource = DSTipoDocumento
                ParentCtl3D = False
                TabOrder = 0
                OnKeyDown = DBLCBFornecedorKeyDown
              end
              object DBEDocumento: TDBEdit
                Left = 206
                Top = 37
                Width = 98
                Height = 22
                Ctl3D = False
                DataField = 'CP_DOCUMENTO'
                DataSource = dsCadastro
                ParentCtl3D = False
                TabOrder = 1
              end
              object DBDEDataDocumento: TDBDateEdit
                Left = 310
                Top = 37
                Width = 121
                Height = 23
                DataField = 'CP_DATADOCUMENTO'
                DataSource = dsCadastro
                Ctl3D = False
                ButtonWidth = 26
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 2
                OnEnter = DBDEDataDocumentoEnter
              end
              object edValorDocto: TRxDBCalcEdit
                Left = 438
                Top = 37
                Width = 102
                Height = 23
                DataField = 'CP_VALORDOCTO'
                DataSource = dsCadastro
                Ctl3D = False
                DecimalPlaces = 15
                DisplayFormat = '0.,00'
                ButtonWidth = 0
                NumGlyphs = 2
                ParentCtl3D = False
                TabOrder = 3
                OnExit = edValorDoctoExit
              end
            end
            object DBCHBBAIXAAUTORIZADA: TDBCheckBox
              Tag = 5
              Left = 561
              Top = 86
              Width = 120
              Height = 20
              Caption = 'Baixa Autorizada'
              DataField = 'CP_AUTORIZABAIXA'
              Enabled = False
              TabOrder = 4
              ValueChecked = 'True'
              ValueUnchecked = 'False'
            end
            object edOrigem: TEdit
              Left = 346
              Top = 310
              Width = 149
              Height = 22
              TabStop = False
              Ctl3D = False
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 15
            end
            object edCodigo: TDBEdit
              Left = 1
              Top = 18
              Width = 61
              Height = 22
              TabStop = False
              AutoSize = False
              Ctl3D = False
              DataField = 'CP_CODIGO'
              DataSource = dsCadastro
              ParentCtl3D = False
              ReadOnly = True
              TabOrder = 0
            end
          end
          object TRetencoes: TTabSheet
            Caption = 'Reten'#231#245'es'
            ImageIndex = 1
            object Label6: TLabel
              Left = 0
              Top = 14
              Width = 29
              Height = 16
              Caption = 'IRRF'
            end
            object Label19: TLabel
              Left = 0
              Top = 43
              Width = 21
              Height = 16
              Caption = 'PIS'
            end
            object Label20: TLabel
              Left = 0
              Top = 73
              Width = 48
              Height = 16
              Caption = 'COFINS'
            end
            object Label23: TLabel
              Left = 0
              Top = 102
              Width = 32
              Height = 16
              Caption = 'CSLL'
            end
            object Label24: TLabel
              Left = 0
              Top = 132
              Width = 30
              Height = 16
              Caption = 'INSS'
            end
            object Label25: TLabel
              Left = 0
              Top = 161
              Width = 21
              Height = 16
              Caption = 'ISS'
            end
            object RxDBCIRRF: TRxDBCalcEdit
              Left = 70
              Top = 14
              Width = 100
              Height = 23
              DataField = 'CP_VALOR_IRRF'
              DataSource = dsCadastro
              Ctl3D = False
              DisplayFormat = '0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 0
              OnExit = RxDBCIRRFExit
            end
            object RxDBCPIS: TRxDBCalcEdit
              Left = 70
              Top = 43
              Width = 100
              Height = 23
              DataField = 'CP_VALOR_PIS'
              DataSource = dsCadastro
              Ctl3D = False
              DisplayFormat = '0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 1
              OnExit = RxDBCPISExit
            end
            object RxDBCCOFINS: TRxDBCalcEdit
              Left = 70
              Top = 73
              Width = 100
              Height = 23
              DataField = 'CP_VALOR_CONFINS'
              DataSource = dsCadastro
              Ctl3D = False
              DisplayFormat = '0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 2
              OnExit = RxDBCCOFINSExit
            end
            object RxDBCCSLL: TRxDBCalcEdit
              Left = 70
              Top = 102
              Width = 100
              Height = 24
              DataField = 'CP_VALOR_CSLL'
              DataSource = dsCadastro
              Ctl3D = False
              DisplayFormat = '0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 3
              OnExit = RxDBCCSLLExit
            end
            object RxDBCINSS: TRxDBCalcEdit
              Left = 70
              Top = 132
              Width = 100
              Height = 23
              DataField = 'CP_VALOR_INSS'
              DataSource = dsCadastro
              Ctl3D = False
              DisplayFormat = '0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 4
              OnExit = RxDBCINSSExit
            end
            object RxDBCISS: TRxDBCalcEdit
              Left = 70
              Top = 161
              Width = 100
              Height = 24
              DataField = 'CP_VALOR_ISS'
              DataSource = dsCadastro
              Ctl3D = False
              DisplayFormat = '0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 5
              OnExit = RxDBCISSExit
            end
          end
          object TabSheet1: TTabSheet
            Caption = 'PagFor'
            ImageIndex = 2
            object Label22: TLabel
              Left = 12
              Top = 17
              Width = 154
              Height = 16
              Caption = 'Modalidade do Pagamento'
            end
            object Label26: TLabel
              Left = 12
              Top = 68
              Width = 188
              Height = 16
              Caption = 'C'#243'digo de Barra / Linha Digit'#225'vel'
              Visible = False
            end
            object Label27: TLabel
              Left = 12
              Top = 112
              Width = 125
              Height = 16
              Caption = 'Data Limite Desconto'
              Visible = False
            end
            object Label28: TLabel
              Left = 155
              Top = 114
              Width = 89
              Height = 16
              Caption = 'Valor Desconto'
              Visible = False
            end
            object Label29: TLabel
              Left = 472
              Top = 32
              Width = 60
              Height = 19
              Caption = 'Label29'
              Font.Charset = ANSI_CHARSET
              Font.Color = clWindowText
              Font.Height = -16
              Font.Name = 'Arial'
              Font.Style = [fsBold]
              ParentFont = False
              Visible = False
            end
            object Label30: TLabel
              Left = 10
              Top = 162
              Width = 70
              Height = 16
              Caption = 'NF: N'#250'mero'
            end
            object Label31: TLabel
              Left = 98
              Top = 162
              Width = 30
              Height = 16
              Caption = 'S'#233'rie'
            end
            object DBLookupComboBox1: TDBLookupComboBox
              Left = 12
              Top = 34
              Width = 355
              Height = 22
              Ctl3D = False
              DataField = 'CP_MODALIDADE'
              DataSource = dsCadastro
              KeyField = 'MOD_IDENTIFICACAO'
              ListField = 'MOD_DESCRICAO'
              ListSource = DSModalidade
              ParentCtl3D = False
              TabOrder = 0
              OnExit = DBLookupComboBox1Exit
              OnKeyDown = DBLookupComboBox1KeyDown
            end
            object DBEdit2: TDBEdit
              Left = 11
              Top = 84
              Width = 355
              Height = 22
              TabStop = False
              AutoSize = False
              Ctl3D = False
              DataField = 'CP_MODALIDADE_CODIGO_BARRA'
              DataSource = dsCadastro
              Enabled = False
              ParentCtl3D = False
              TabOrder = 1
              Visible = False
              OnExit = DBEdit2Exit
            end
            object ComboBox1: TComboBox
              Left = 12
              Top = 84
              Width = 359
              Height = 24
              CharCase = ecUpperCase
              Ctl3D = False
              ItemHeight = 16
              ParentCtl3D = False
              TabOrder = 2
              Visible = False
            end
            object DBDateEdit1: TDBDateEdit
              Left = 12
              Top = 128
              Width = 118
              Height = 23
              DataField = 'CP_PAGFOR_DATALIMITE_DESCONTO'
              DataSource = dsCadastro
              Ctl3D = False
              ButtonWidth = 26
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 3
              Visible = False
              OnEnter = DBDEDataDocumentoEnter
            end
            object RxDBCalcEdit1: TRxDBCalcEdit
              Left = 155
              Top = 129
              Width = 102
              Height = 23
              DataField = 'CP_PAGFOR_VALOR_DESCONTO'
              DataSource = dsCadastro
              Ctl3D = False
              DecimalPlaces = 15
              DisplayFormat = '#,##0.00'
              ButtonWidth = 0
              NumGlyphs = 2
              ParentCtl3D = False
              TabOrder = 4
              Visible = False
              OnExit = edValorDoctoExit
            end
            object DBEdit1: TDBEdit
              Left = 98
              Top = 177
              Width = 35
              Height = 22
              Ctl3D = False
              DataField = 'CP_NF_SERIE'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 5
            end
            object DBEdit3: TDBEdit
              Left = 10
              Top = 177
              Width = 85
              Height = 22
              Ctl3D = False
              DataField = 'CP_NFNUMERO'
              DataSource = dsCadastro
              ParentCtl3D = False
              TabOrder = 6
            end
          end
        end
      end
    end
  end
  inherited PopupMenu1: TPopupMenu
    Left = 728
    Top = 264
  end
  inherited dsCadastro: TDataSource
    Left = 728
  end
  inherited QCadastro: TQuery
    SQL.Strings = (
      'SELECT * FROM CONTASPAGAR')
    Left = 760
    Top = 320
  end
  object DSFornecedor: TDataSource [4]
    DataSet = DMGestao.QFornecedor
    Left = 382
    Top = 461
  end
  object DSTipoDocumento: TDataSource [5]
    DataSet = DMFinanceiro.QTipoDocumento
    Left = 134
    Top = 141
  end
  object DSPortador: TDataSource [6]
    DataSet = DMFinanceiro.Qportador
    Left = 534
    Top = 413
  end
  object QLancamento: TQuery [7]
    Active = True
    AfterDelete = QLancamentoAfterDelete
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT'
      '  LANCAMENTO.LANC_CODIGO AS LANCAMENTO,'
      '  LANCAMENTO.LANC_DATA AS DATA,'
      '  CONTACORRENTE.CONT_CORR_DESCRICAO AS CONTA,'
      '  LANCAMENTO.LANC_VALOR AS VALOR,'
      '  LANCAMENTO.EXCLUIDO'
      'FROM'
      '  CONTASPAGAR'
      
        '  INNER JOIN LANCAMENTO ON (CONTASPAGAR.CP_CODIGO=LANCAMENTO.LAN' +
        'C_TITULO)'
      '                       AND (LANCAMENTO.LANC_CPCR = '#39'P'#39')'
      
        '  INNER JOIN CONTACORRENTE ON (LANCAMENTO.LANC_CONTA=CONTACORREN' +
        'TE.CONT_CORR_CODIGO)'
      'WHERE'
      '  (LANC_TITULO=:CP_CODIGO) AND'
      '  (LANCAMENTO.EXCLUIDO <> '#39'S'#39' OR LANCAMENTO.EXCLUIDO IS NULL) ')
    Left = 736
    Top = 145
    ParamData = <
      item
        DataType = ftInteger
        Name = 'CP_CODIGO'
        ParamType = ptUnknown
        Size = 4
      end>
    object QLancamentoLANCAMENTO: TIntegerField
      FieldName = 'LANCAMENTO'
    end
    object QLancamentoDATA: TDateTimeField
      FieldName = 'DATA'
    end
    object QLancamentoCONTA: TStringField
      FieldName = 'CONTA'
      Size = 60
    end
    object QLancamentoVALOR: TFloatField
      FieldName = 'VALOR'
      DisplayFormat = '#,##0.00'
    end
    object QLancamentoEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
  end
  object DSLancamento: TDataSource [8]
    DataSet = QLancamento
    Left = 414
    Top = 253
  end
  object QAux: TQuery [9]
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      
        'Select Lanc_Codigo,Lanc_Data,Cont_Corr_Descricao,Lanc_Historico,' +
        'Lanc_Documento,PlanoContas.Descricao,Esp_Descricao,Lanc_Cheque,L' +
        'anc_Nominal,Lanc_CPCR,Lanc_Valor,Lanc_Desconto,Lanc_JurosMulta'
      
        'from PlanoContas Right join (especie Right join ( Lancamento Lef' +
        't join ContaCorrente on  Cont_Corr_Codigo = Lanc_Conta ) on lanc' +
        '_Especie = esp_Codigo  )on Lanc_plano = PlanoContas.Codigo  ')
    Left = 605
    Top = 81
  end
  object DSCentro: TDataSource [10]
    DataSet = DMFinanceiro.QCentro
    Left = 510
    Top = 469
  end
  object DSPlanoContabil: TDataSource [11]
    DataSet = DMFinanceiro.QPlanoContabil
    Left = 260
    Top = 317
  end
  object DSPlanoSaida: TDataSource [12]
    DataSet = DMFinanceiro.QPlanoSaida
    Left = 262
    Top = 261
  end
  object DSPlanoContabil2: TDataSource [13]
    DataSet = DMFinanceiro.QPlanoContabil
    Left = 588
    Top = 197
  end
  object Qtemp: TQuery [14]
    DatabaseName = 'base'
    Left = 696
    Top = 193
  end
  object dsFonteRecurso: TDataSource [15]
    DataSet = DMFinanceiro.QFonteRecurso
    Left = 326
    Top = 469
  end
  inherited dspCadastro: TDataSetProvider
    Left = 680
    Top = 232
  end
  inherited cdsCadastro: TClientDataSet
    Active = True
    Left = 576
    Top = 88
    object cdsCadastroCP_CODIGO: TIntegerField
      Alignment = taCenter
      DisplayLabel = 'C'#243'digo'
      FieldName = 'CP_CODIGO'
    end
    object cdsCadastroCP_DATATITULO: TDateTimeField
      Alignment = taCenter
      DisplayLabel = 'Data'
      FieldName = 'CP_DATATITULO'
    end
    object cdsCadastroCP_DOCUMENTO: TStringField
      DisplayLabel = 'Documento'
      FieldName = 'CP_DOCUMENTO'
      Size = 13
    end
    object cdsCadastroCP_DATADOCUMENTO: TDateTimeField
      Alignment = taCenter
      DisplayLabel = 'Data Docto'
      FieldName = 'CP_DATADOCUMENTO'
    end
    object cdsCadastroCP_FORNECEDOR: TIntegerField
      FieldName = 'CP_FORNECEDOR'
    end
    object cdsCadastroCP_PORTADOR: TIntegerField
      FieldName = 'CP_PORTADOR'
    end
    object cdsCadastroCP_PLANO: TIntegerField
      FieldName = 'CP_PLANO'
    end
    object cdsCadastroCP_DATAVENCIMENTO: TDateTimeField
      Alignment = taCenter
      DisplayLabel = 'Vencto'
      FieldName = 'CP_DATAVENCIMENTO'
    end
    object cdsCadastroCP_VALOR: TFloatField
      DisplayLabel = 'Valor'
      FieldName = 'CP_VALOR'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCP_SALDO: TFloatField
      DisplayLabel = 'Saldo'
      FieldName = 'CP_SALDO'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCODIGOEMPRESA: TIntegerField
      FieldName = 'CODIGOEMPRESA'
    end
    object cdsCadastroCP_NF: TIntegerField
      FieldName = 'CP_NF'
    end
    object cdsCadastroCP_CENTROCUSTO: TIntegerField
      FieldName = 'CP_CENTROCUSTO'
    end
    object cdsCadastroCP_HISTORICO1: TStringField
      DisplayLabel = 'Hist'#243'rico'
      FieldName = 'CP_HISTORICO1'
      Size = 52
    end
    object cdsCadastroCP_HISTORICO2: TStringField
      DisplayLabel = 'Hist'#243'rico 2'
      FieldName = 'CP_HISTORICO2'
      Size = 52
    end
    object cdsCadastroCP_CONTACONTABIL: TIntegerField
      FieldName = 'CP_CONTACONTABIL'
    end
    object cdsCadastroCP_AUTORIZABAIXA: TStringField
      FieldName = 'CP_AUTORIZABAIXA'
      Size = 6
    end
    object cdsCadastroCP_AUTORIZACAO: TStringField
      FieldName = 'CP_AUTORIZACAO'
      Size = 10
    end
    object cdsCadastroCP_DATAAUTORIZACAO: TDateTimeField
      FieldName = 'CP_DATAAUTORIZACAO'
    end
    object cdsCadastroCP_ORIGEM: TIntegerField
      FieldName = 'CP_ORIGEM'
    end
    object cdsCadastroCP_FONTERECURSO: TIntegerField
      FieldName = 'CP_FONTERECURSO'
    end
    object cdsCadastroCP_VALORDOCTO: TFloatField
      FieldName = 'CP_VALORDOCTO'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCP_NF_SERIE: TStringField
      FieldName = 'CP_NF_SERIE'
      Size = 5
    end
    object cdsCadastroCP_NFNUMERO: TStringField
      FieldName = 'CP_NFNUMERO'
      Size = 12
    end
    object cdsCadastroCP_VALOR_IRRF: TFloatField
      FieldName = 'CP_VALOR_IRRF'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCP_VALOR_PIS: TFloatField
      FieldName = 'CP_VALOR_PIS'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCP_VALOR_CONFINS: TFloatField
      FieldName = 'CP_VALOR_CONFINS'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCP_VALOR_CSLL: TFloatField
      FieldName = 'CP_VALOR_CSLL'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCP_VALOR_INSS: TFloatField
      FieldName = 'CP_VALOR_INSS'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroCP_VALOR_ISS: TFloatField
      FieldName = 'CP_VALOR_ISS'
      DisplayFormat = '#,##0.00'
    end
    object cdsCadastroUSUARIO_CADASTRO: TStringField
      FieldName = 'USUARIO_CADASTRO'
    end
    object cdsCadastroUSUARIO_AUTERACAO: TStringField
      FieldName = 'USUARIO_AUTERACAO'
    end
    object cdsCadastroUSUARIO_EXCLUSAO: TStringField
      FieldName = 'USUARIO_EXCLUSAO'
    end
    object cdsCadastroDATA_CADASTRO: TDateTimeField
      FieldName = 'DATA_CADASTRO'
    end
    object cdsCadastroDATA_EXCLUSAO: TDateTimeField
      FieldName = 'DATA_EXCLUSAO'
    end
    object cdsCadastroDATA_AUTERACAO: TDateTimeField
      FieldName = 'DATA_AUTERACAO'
    end
    object cdsCadastroEXCLUIDO: TStringField
      FieldName = 'EXCLUIDO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCP_TIPODOCUMENTO: TIntegerField
      FieldName = 'CP_TIPODOCUMENTO'
    end
    object cdsCadastroUSUARIO: TStringField
      FieldName = 'USUARIO'
      Size = 10
    end
    object cdsCadastroDATAMODIFICACAO: TDateTimeField
      FieldName = 'DATAMODIFICACAO'
    end
    object cdsCadastroUSUARIO_RECUPERACAO: TStringField
      FieldName = 'USUARIO_RECUPERACAO'
    end
    object cdsCadastroDATA_RECUPERACAO: TDateTimeField
      FieldName = 'DATA_RECUPERACAO'
    end
    object cdsCadastroCP_FORNECEDOR_DESC: TStringField
      DisplayLabel = 'Fornecedor'
      FieldName = 'CP_FORNECEDOR_DESC'
      Size = 60
    end
    object cdsCadastroSITUACAO_DA_REPLICACAO: TStringField
      FieldName = 'SITUACAO_DA_REPLICACAO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroDATA_REPLICACAO: TDateTimeField
      FieldName = 'DATA_REPLICACAO'
    end
    object cdsCadastroCP_PAGFOR_SELECIONADO: TIntegerField
      DisplayLabel = 'N'#186' Lote'
      FieldName = 'CP_PAGFOR_SELECIONADO'
    end
    object cdsCadastroCP_MODALIDADE: TIntegerField
      FieldName = 'CP_MODALIDADE'
    end
    object cdsCadastroCP_TIPO_PAGAMENTO: TStringField
      FieldName = 'CP_TIPO_PAGAMENTO'
      Size = 2
    end
    object cdsCadastroCP_PAGFOR_DATALIMITE_DESCONTO: TDateTimeField
      FieldName = 'CP_PAGFOR_DATALIMITE_DESCONTO'
    end
    object cdsCadastroCP_PAGFOR_VALOR_DESCONTO: TFloatField
      FieldName = 'CP_PAGFOR_VALOR_DESCONTO'
    end
    object cdsCadastroCP_PAGFOR_LIBERADO: TStringField
      FieldName = 'CP_PAGFOR_LIBERADO'
      FixedChar = True
      Size = 1
    end
    object cdsCadastroCP_MODALIDADE_CODIGO_BARRA: TStringField
      FieldName = 'CP_MODALIDADE_CODIGO_BARRA'
      Size = 47
    end
  end
  inherited dsCamposPesquisa: TDataSource
    Left = 376
    Top = 248
  end
  inherited OpenDialog1: TOpenDialog
    Left = 680
  end
  object QModalidade: TQuery
    DatabaseName = 'base'
    Filter = '(MOD_ATIVO = '#39'A'#39') AND (EXCLUIDO = '#39'N'#39')'
    RequestLive = True
    SQL.Strings = (
      'SELECT * FROM MODALIDADEPAGAMENTO')
    Left = 541
    Top = 225
  end
  object DSModalidade: TDataSource
    DataSet = QModalidade
    Left = 608
    Top = 104
  end
end
